EXCEPTION  HANDLING 


**********  EXCEPTION  WITH  TRY  CATCH  &  ENDTRY  BLOCK  *********** 

data  :  res  type  i . 
parameters   :   numl  type  i , 

num2  type  i . 

data  :  obj  type  ref  to  cx_root. 
data  :  msg  type  string, 
try . 

res  =  numl  /  num2 . 

write   :/   'result  =' ,  res. 

catch  cx_root  into  obj . 

msg  =  obj->get_longtext (  ) . 

write   :/  msg. 
endtry . 


*****  EXCEPTION  WITH  TRY  CATCH  &  ENDTRY  BLOCK  IN  A  CLASS 


class  lcl_a  definition. 

public  section, 
data  :  numl  type  i , 

num2  type  i , 

res  type  i . 
data  :  ref  type  ref  to  cx_root, 

msg  type  string, 
methods   :  meth  importing  varl  type  I  var2  type  I . 

endclass . 

class  lcl_a  implementation, 
method  meth. 
numl  =  varl . 
num2  =  var2 . 
try. 

res  =  numl  /  num2 . 

write  : /   ' result  of  division  =  ' ,  res . 
catch  cx_root  into  ref. 

msg  =  ref ->get_longtext (  ) . 

write  :/  msg. 
endtry . 
endmethod. 
endclass . 

start-of -selection . 

data  obj  type  ref  to  lcl_a. 

create  object  obj . 

parameters   :  p_numl  type  i , 

p_num2  type  i . 
obj ->meth (  varl  =  p_numl 

var2  =  p  num2  ) . 


*********  EXCEPTION  WITH  TRY  CATCH  &  ENDTRY  BLOCK 

parameters   :  num  type  i . 
data  :  RES  TYPE  P  DECIMALS  2, 

o_ref  type  ref  to  cx_root, 

text  type  string. 

START-OF- SELECTION . 

WRITE   :/    'DIVISION  AND  SQUARE  ROOT  CHECKING' 
ULINE . 
TRY  . 

IF  ABS(  NUM  )   >  100. 

RAISE  EXCEPTION  TYPE  CX_DEMO_ABS_TOO_LARGE 

ENDIF. 
TRY. 

RES  =  1  /  NUM. 

WRITE   :/    'RESULT  OF  DIVISION=',  RES. 
RES  =  SQRT (  NUM  ) . 

WRITE   : /    ' RESULT  OF  SQUARE ' ,  RES . 
CATCH  CX_SY_ZERODIVIDE  INTO  0_REF. 
TEXT  =  0_REF->GET_TEXT (   ) . 
CLEANUP . 

CLEAR  RES. 
ENDTRY . 

CATCH  CX_S Y_ARI THMET I C_ERROR  INTO  0_REF. 
TEXT  =  0_REF->GET_TEXT (   ) . 
CATCH  CX_ROOT  INTO  0_REF. 

TEXT  =  0_REF->GET_TEXT (   ) . 

ENDTRY . 

IF  NOT  TEXT  IS  INITIAL. 
WRITE   :/  TEXT. 
ENDIF. 

WRITE   : /    ' FINAL  RESULT ' ,  RES . 


*******  EXCEPTION  WITH  NESTED  TRY  CATCH  &  ENDTRY  BLOCK  ****** 


data  :  o_ref  type  ref  to  cx_root, 
text  type  string. 

try. 

try. 

raise  exception  type  cx_demo_cons true tor 

exporting  my_text  =  sy-repid. 
catch  cx_demo_cons true tor  into  o_ref . 
text  =  o_ref ->get_text (  ) . 
write  /  text, 
raise  exception  o_ref . 
endtry . 

catch  cx_demo_cons true tor  into  o_ref . 
text  =  o_ref ->get_text (  ) . 
write  /  text, 
endtry . 


*****  EXCEPTION  WITH  TRY  CATCH  &  ENDTRY  BLOCK  IN  A  CLASS 


class  lcl_a  definition, 
public  section. 

methods   :  methl  importing  p  type  string 

raising  cx_demo_cons true tor 

cx_demo_abs_too_large . 

endclass . 

class  lcl_b  definition, 
public  section. 

data  :  obj_a  type  ref  to  lcl_a. 

methods   :  meth2  raising  cx_demo_cons true tor . 

endclass . 


class     lcl_b  implementation, 
method  meth2 . 

create  object  obj_a. 
try. 

ob j_a->methl (   ' tricon '   ) . 
catch  cx_demo_abs_too_large . 
endtry . 
endmethod. 
endclass . 

class  lcl_a  implementation, 
method  methl . 

raise  exception  type  cx_demo_cons true tor . 

endmethod. 
endclass . 

data  :  obj_b  type  ref  to  lcl_b. 
start-of -selection . 
create  object  obj_b. 
try. 

ob j_b->meth2 (  )  . 

catch  cx_demo_cons  true  tor . 

write  : /   ' catching  cx_demo_cons true tor ' . 
endtry . 


*********  EXCEPTION  WITH  INHERITANCE     IN  A  CLASS  *********** 


class  local_exp  definition  inheriting  from 
cx_static_check . 

endclass . 

start-of -selection . 
TRY  . 

raise  exception  type  local_exp. 

CATCH  local_exp. 
message  'caught'   type  'I'. 

ENDTRY . 

*********  EXCEPTION  WITH  INHERITANCE     IN  A  CLASS  *********** 

class  local_exp  definition  inheriting  from 
cx_static_check . 
public  section. 

data  :   text  type  string. 

methods   :  constructor  importing  f_text  type  string, 
endclass . 

class  local_exp  implementation, 
method  constructor. 

super->constructor (  ) . 
text  =  f_text. 

endmethod. 
endclass . 

data  :  o_ref  type  ref  to  local_exp. 
start-of -selection . 
TRY  . 

raise  exception  type  local_exp  exporting  f_text  = 

' local  exceptions ' . 

CATCH  local_exp  into  o_ref . 

message  o_ref->text  type  ' I ' . 

ENDTRY . 


*********  EXCEPTION  WITH  INHERITANCE  IN  A  CLASS  *********** 


class  cx_local_exception  definition  inheriting  from 
cx_sy_arithmetic_error . 
public  section. 

methods   :  constructor  importing  situation  type 
string, 
endclass . 

class  cx_local_exception  implementation, 
method  constructor. 

super->constructor (  operation  =  situation  ) . 
endmethod. 
endclass . 

data  :  o_ref  type  ref  to  cx_local_exception , 
text  type  string. 

start-of -selection . 
try. 

raise  exception  type  cx_local_exception  exporting 
situation  =  ' start-of -selection ' . 

catch  cx_local_exception  into  o_ref . 
text  =  o_ref ->get_text (  ) . 
message  text  type  ' I ' . 
endtry . 


****************     EXCEPTION  WITH  FILES  ******************* 


data  :  o_ref  type  ref  to  cx_sy_f  ile_open_mode , 
text  type  string. 

TRY  . 

raise  exception  type  cx_sy_f ile_open_mode 

exporting  textid  = 
CX_SY_FILE_OPEN_MODE=>read_only 

filename  =  'SS.DAT'. 
CATCH  CX_SY_FILE_OPEN_MODE  INTO  0_REF. 
TEXT  =  0_REF->GET_TEXT (   ) . 
MESSAGE  TEXT  TYPE    ' I ' . 

ENDTRY . 

TRY  . 

raise  exception  type  cx_sy_f ile_open_mode 

exporting  textid  = 
CX_SY_FILE_OPEN_MODE=>NOT_OPEN 

filename  = 

' SS . DAT ' . 

CATCH  CX_SY_FILE_OPEN_MODE  INTO  0_REF . 
TEXT  =  0_REF->GET_TEXT (   ) . 
MESSAGE  TEXT  TYPE    ' I ' . 

ENDTRY . 

TRY  . 

raise  exception  type  cx_sy_f ile_open_mode 

exporting  textid  = 
CX_SY_FILE_OPEN_MODE=>INCOMPATIBLE_MODE 

filename  = 

' SS . DAT ' . 

CATCH  CX_SY_FILE_OPEN_MODE  INTO  0_REF . 
TEXT  =  0_REF->GET_TEXT (   ) . 
MESSAGE  TEXT  TYPE    ' I ' . 


ENDTRY . 


